Mapa

Row

Título del mapa

Row

Descripción del mapa

Aquí puedes escribir la descripción del mapa Estos seis lugares son ideales para un descanso y diversión en familia, me encantaria visitarlos pues parecen frescos y entretenidos.

Puedes escribir en cursivas

O negritas

También puedes poner imágenes:



O hipervínculos, por ejemplo a Google

Row

Referencias

  1. Referencia uno

  2. Referencia dos

  3. Referencia tres

---
title: "Mapa turístico"
author: "Morales Andrea"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: escudo.jpg
    logo: escudo.jpg
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      - {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
      - {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Título del mapa

```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Bacalar", Giro = "Vacaciones", longitud = -88.3, latitud = 18.6)
lugar2 <- c(Nombre = "Pozas de Xilitla", Giro = "Descanso", longitud = -98.9, latitud = 21.3)
lugar3 <- c(Nombre = "Playa del Carmen", Giro = "Vacaciones", longitud = -87.0, latitud = 20.6)
lugar4 <- c(Nombre = "Chiapas", Giro = "Turismo", longitud = -93.3, latitud = 17.5)
lugar5 <- c(Nombre = "Xochimilco", Giro = "Paseo", longitud = -99.1, latitud = 19.2)
lugar6 <- c(Nombre = "Veracruz", Giro = "Vacaciones", longitud = -96.1, latitud = 19.1)

### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) ### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) ### Imprimimos el mapa mapa ``` Row ----------------------------------------------------------------------- ### Descripción del mapa Aquí puedes escribir la descripción del mapa Estos seis lugares son ideales para un descanso y diversión en familia, me encantaria visitarlos pues parecen frescos y entretenidos. *Puedes escribir en cursivas* **O negritas** También puedes poner imágenes:
![](imagen-ejemplo.png){heigth="150"}

[O hipervínculos, por ejemplo a Google](https://www.google.com.mx/) Row ----------------------------------------------------------------------- ### Referencias 1. Referencia uno 2. Referencia dos 3. Referencia tres